home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g34.bas < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  39 lines
  1. 100 ' G34 T.WAKAMATSU
  2. 110 CLS:Z=70:K=10:L=5:PI=3.14159!
  3. 120 FOR J=0 TO 14
  4. 130   Z=Z+8:Q=0:CL=7
  5. 140   IF J<=8         THEN CL=2
  6. 150   IF J<=4         THEN CL=3
  7. 160   IF J=0 OR J>=13 THEN CL=2
  8. 170   FOR I=-18 TO 270 STEP 72
  9. 180     T=I/180*PI
  10. 190     R=(COS(T*K)/2+SIN(T*L))*50+Z
  11. 200     X=COS(T)*R+320:Y=SIN(T)*R+240:Y=480-Y
  12. 210     Q=Q+1:V(Q)=X:W(Q)=Y
  13. 220   NEXT I
  14. 230   FOR H=0 TO 72 STEP 4
  15. 240     Q=0
  16. 250     FOR I=H-18 TO 270+H STEP 72
  17. 260       T=I/180*PI
  18. 270       R=(COS(T*K)/2+SIN(T*L))*50+Z
  19. 280       X=COS(T)*R+320:Y=SIN(T)*R+240:Q=Q+1:Y=480-Y
  20. 290       LINE(V(Q),W(Q))-(X,Y),PSET,%CL
  21. 300       V(Q)=X:W(Q)=Y
  22. 310     NEXT I
  23. 320   NEXT H
  24. 330 NEXT J
  25. 340 FOR D=1 TO 8000:NEXT D
  26. 350 Z=70
  27. 360 FOR J=0 TO 14
  28. 370   T=-18/180*PI:Z=Z+8
  29. 380   R=(COS(T*K)/2+SIN(T*L))*50+Z
  30. 390   V=COS(T)*R+320:W=SIN(T)*R+240:Y=480-Y
  31. 400   FOR I=-18 TO 342 STEP 4
  32. 410     T=I/180*PI
  33. 420     R=(COS(T*K)/2+SIN(T*L))*50+Z
  34. 430     X=COS(T)*R+320:Y=SIN(T)*R+240:Y=480-Y
  35. 440     LINE(V,W)-(X,Y),PSET,0
  36. 450     V=X:W=Y
  37. 460   NEXT I
  38. 470 NEXT J
  39.